From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 5 Apr 1993 06:23:05 +0000 (+0000)
Subject: (dired-unmark-all-files): Read the arg as just a char.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96602
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=3585916ff7abd66df24d3c5da044b29df42a4ad0;p=emacs.git

(dired-unmark-all-files): Read the arg as just a char.
---

diff --git a/lisp/dired.el b/lisp/dired.el
index 859f8e108ba..818261f1894 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1710,9 +1710,12 @@ OLD and NEW are both characters used to mark files."
 
 (defun dired-unmark-all-files (flag &optional arg)
   "Remove a specific mark or any mark from every file.
-With an arg, queries for each marked file.
+With prefix arg, query for each marked file.
 Type \\[help-command] at that time for help."
-  (interactive "sRemove mark: (default: all marks) \nP")
+  (interactive
+   (let* ((cursor-in-echo-area t))
+     (list (progn (message "Remove marks (RET means all): ") (read-char))
+	   current-prefix-arg)))
   (let ((count 0)
 	(re (if (zerop (length flag)) dired-re-mark
 	      (concat "^" (regexp-quote flag)))))